home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 43 / Amiga Format CD43 (1999)(Future Publishing)(GB)(Track 1 of 2)[!][issue 1999-09].iso / -serious- / programming / e / speedtests / 2conds.e < prev    next >
Text File  |  1999-06-14  |  278b  |  24 lines
  1. MODULE '*testspeed'
  2.  
  3. CONST LOTS_OF_TIMES=2000000
  4.  
  5. DEF x=5,y=5
  6.  
  7. PROC main()
  8.   test({ifx2},  '2  x IF', LOTS_OF_TIMES)
  9.   test({ifand}, 'IF AND',  LOTS_OF_TIMES)
  10. ENDPROC
  11.  
  12. PROC ifx2()
  13.   IF x=5
  14.     IF y=5
  15.     ENDIF
  16.   ENDIF
  17. ENDPROC
  18.  
  19. PROC ifand()
  20.   IF (x=5) AND (y=5)
  21.   ENDIF
  22. ENDPROC
  23.  
  24.